Sub main_Grados_A_Radianes()
    Dim grados, radianes, Pi As Double
    Dim i As Integer
    Pi = (4 * Atn(1))
    For i = 0 To 360 Step 90
   radianes = conv_Grados_Rad(CDbl(i))
    Debug.Print "(" & i & ") grados -> " _
        & radianes & " radianes"
        
        Debug.Print Space(15) & "(" _
        & radianes / Pi & ") Pi"
        
        Debug.Print
    Next i
End Sub
